Horoscope Companion: Virgo/Horoscope Companion: Virgo.iso/pc/virgo/fe.dir/Internal_1.ls

Text File | 1996-10-08 | 1.2 KB | 36 lines

on startMovie
  cursor(4)
  hSetupMovie()
end

on stopMovie
  hCleanupSprites()
end

on idle
  CheckForRollovers(the rollOver)
end

on hSetupMovie
  global gSurpriseSpriteNum, gWhichGender, gWhichOldGenderSprite, gWhichAge, gWhichOldAgeSprite, gWhichYear, gWhichOldYearSprite, gTextSpriteNum
  set gTextSpriteNum to 6
  set gSurpriseSpriteNum to 2
  set the visible of sprite gSurpriseSpriteNum to 0
  set gWhichGender to "M"
  set gWhichOldGenderSprite to 8
  puppetSprite(gWhichOldGenderSprite, 1)
  set the memberNum of sprite gWhichOldGenderSprite to the memberNum of sprite gWhichOldGenderSprite + 1
  set gWhichAge to "U30"
  set gWhichOldAgeSprite to 11
  puppetSprite(gWhichOldAgeSprite, 1)
  set the memberNum of sprite gWhichOldAgeSprite to the memberNum of sprite gWhichOldAgeSprite + 1
  set gWhichYear to "1998"
  set gWhichOldYearSprite to 15
  puppetSprite(gWhichOldYearSprite, 1)
  set the memberNum of sprite gWhichOldYearSprite to the memberNum of sprite gWhichOldYearSprite + 1
  set gTextSpriteNum to 6
  puppetSprite(gTextSpriteNum, 1)
  set tWhichText to the number of member (gWhichGender && gWhichAge && gWhichYear && "text") of castLib the castLibNum of sprite gTextSpriteNum
  set the memberNum of sprite gTextSpriteNum to member tWhichText
end